COMMENT ⊗   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	% METAFONT's current capabilities
C00004 00003	path a.in, a.out
C00007 ENDMK
C⊗;
% METAFONT's current capabilities

%	choosing control points
%	solving linear equations
%	filling a contour
%	culling edges
%	opening windows and displaying shapes
%	macros (def, vardef, primarydef, etc. with all parameter combinations)
%	iterations (for, forsuffixes, forever with all combinations)

delimiters ();
autorounding:=0; smoothing:=0; numeric in;
def tracingall=tracingcommands:=3;
 tracingedges:=1; tracingtitles:=1; tracingequations:=1; tracingspecs:=2;
	tracingpens:=1; tracingchoices:=1; tracingstats:=2;
 tracingonline:=1;tracingoutput:=1;tracingmacros:=3 enddef;
tracingall;

% transform identity;
% (0,0) transformed identity = (0,0);
% (0,1) transformed identity = (0,1);
% (1,0) transformed identity = (1,0);

% transform toscreen;
% toscreen = identity scaled 3.8 ymult 1.25;


% from and to are ordinary MF coordinates.  The `at' specification gives the
% position of the upper left corner on the screen.  The coordinates for this
% start at (0,0) at the lower left corner of the screen.

openwindow 0 from (0,0) to (380,400) at (0,380);
edges ee;
ee = nulledges;

path a.in, a.out;

% Rotate these by -.4 when rotation is implemented.

a.out =
(30.8154,30.5538)..(24.1231,25.7692)..(15.1231,23.3692)..(07.1692,26.1692)
..(03.6308,33.6154)..(10.0154,44.2000)..((23.0462,51.3385)..(27.2308,53.2000))
..(29.6615,54.8000)..((30.2000,56.8923)..(30.2154,62.7846))
..(29.7538,66.2308)..(27.5385,69.8308)..(21.7692,71.4923)..(17.2462,70.8769)
..(13.3538,68.0462)..((12.7538,65.4000)..(12.6462,64.1692))
..(11.3385,61.2154)..(09.3385,60.5077)..(06.9231,61.4769)..(05.6000,64.2615)
..(07.0154,68.6923)..(11.1538,71.8923)..(21.8000,73.7846)..(30.8154,72.6000)
..(38.0154,67.7538)..((39.2615,60.7538)..(39.4154,36.1692))
..(39.7231,31.5538)..(41.3231,28.9077)..(43.6462,28.1231)..(46.9385,29.7385)
..(48.1538,32.2000)
&(48.1538,32.2000)..(49.8462,32.1077)
&(49.8462,32.1077)..(47.4923,26.3538)..(41.2000,23.5231)..(35.0615,25.4923)
..(30.8154,30.5538) & cycle;

a.in =
((30.2154,51.7692)..(30.4308,34.5385))
..((28.0000,31.0154){curl 0}..(20.4769,28.1385)..(14.7077,30.9077)
   ..(13.2462,36.2000)..(17.1846,44.3077)..(30.2154,51.7692){curl 0}) & cycle;

addto ee contour a.out withweight 1;

addto ee contour a.in withweight -1;

display ee on 0;

charcode := 97;			% ord "a" not implemented
charfam := 0;
chardw := 52;

shipout ee;

end